From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 20 Jun 1993 22:45:13 +0000 (+0000)
Subject: (mh-yank-cur-msg): Test mark-active.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95210
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=41a3409651dcbd21a2e31233da397bc6481fdf73;p=emacs.git

(mh-yank-cur-msg): Test mark-active.
---

diff --git a/lisp/mh-e.el b/lisp/mh-e.el
index d52fbcb31bf..732f6b9f003 100644
--- a/lisp/mh-e.el
+++ b/lisp/mh-e.el
@@ -48,7 +48,7 @@
 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;;; Modified by Stephen Gildea 1988.  gildea@bbn.com
-(defconst mh-e-RCS-id "$Header: /home/gd/gnu/emacs/19.0/lisp/RCS/mh-e.el,v 1.11 1993/06/05 02:51:21 rms Exp jimb $")
+(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.12 1993/06/09 11:54:27 jimb Exp rms $")
 
 ;;; Code:
 
@@ -2155,7 +2155,7 @@ yanked message will be deleted."
 	(if mh-delete-yanked-msg-window
 	    (delete-windows-on mh-show-buffer))
 	(set-buffer mh-show-buffer)	; Find displayed message
-	(let ((mh-ins-str (cond ((mark t)
+	(let ((mh-ins-str (cond (mark-active
 				 (buffer-substring (region-beginning)
 						   (region-end)))
 				((eq 'body mh-yank-from-start-of-msg)